library(ExPosition)
data(words)


#todays data
todays.data <- as.matrix(words$data)

#and the fast way...
D <- dist(todays.data,method="manhattan",diag=TRUE,upper=TRUE)